home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64
/
turtle-demo 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
317b
|
17 lines
1 rem turtle-demo: 'blume'
2 rem n. heusler 11.91
3 :
10 sys49152
20 input"iterationsgrad 4[157][157][157]";le
25 input"versatzwinkel 80[157][157][157][157]";su
30 !graphics:!init:!pen0:!move140,120:!pen1
40 gosub100
50 !finish
60 :
100 ifle=0thenreturn
110 fori=1to4
120 !walk10*le:!turnlsu:!pushi,le:le=le-1:gosub100:!pullle,i
130 !turnr90+su
140 next
150 return